home *** CD-ROM | disk | FTP | other *** search
/ ftp.cs.arizona.edu / ftp.cs.arizona.edu.tar / ftp.cs.arizona.edu / icon / newsgrp / group98b.txt / 000113_icon-group-sender _Mon Jun 29 08:41:14 1998.msg < prev    next >
Internet Message Format  |  2000-09-20  |  2KB
  1. Return-Path: <icon-group-sender>
  2. Received: from kingfisher.CS.Arizona.EDU (kingfisher.CS.Arizona.EDU [192.12.69.239])
  3.     by baskerville.CS.Arizona.EDU (8.8.8/8.8.7) with SMTP id IAA06667
  4.     for <icon-group-addresses@baskerville.CS.Arizona.EDU>; Mon, 29 Jun 1998 08:41:14 -0700 (MST)
  5. Received: by kingfisher.CS.Arizona.EDU (5.65v4.0/1.1.8.2/08Nov94-0446PM)
  6.     id AA31475; Mon, 29 Jun 1998 08:41:02 -0700
  7. X-Sender: nevin@pop.interaccess.com (Unverified)
  8. Message-Id: <v04003a04b1ba60b6229a@[204.148.87.119]>
  9. In-Reply-To: <01bda15c$16b0f180$c37546cf@NEVIN>
  10. Mime-Version: 1.0
  11. Content-Type: text/plain; charset="us-ascii"
  12. Date: Sat, 27 Jun 1998 03:51:31 -0500
  13. To: icon-group@optima.CS.Arizona.EDU
  14. From: "Nevin :-] Liber" <nevin@pendragon-software.com>
  15. Subject: 
  16.  Re:
  17. Errors-To: icon-group-errors@optima.CS.Arizona.EDU
  18. Status: RO
  19. Content-Length: 943
  20.  
  21. Robbie Gilbert <mailto:rwg@fns.com> wrote:
  22.  
  23. >I would like to know if there is a function or procedure
  24. >that will repeatedly evaluate an expression which is a
  25. >generator and return ALL the results in a list.  I could
  26. >write such a procedure very easily (maybe only 2
  27. >lines?) using the every-do control structure but if there is
  28. >one already in the program library, I would prefer to use
  29. >the standard.
  30.  
  31. I don't know if there is a standard one in the IPL, but as you pointed out,
  32. it is fairly trivial to write:
  33.  
  34.     procedure genlist(pGenerator, LArguments[])
  35.  
  36.         local   L
  37.  
  38.         L := list()
  39.         every put(L, pGenerator ! LArguments)
  40.  
  41.         return L
  42.  
  43.     end
  44.  
  45. --
  46.  Nevin ":-)" Liber  <mailto:nevin@pendragon-software.com>  (847) 816-9926
  47.   Senior Software Engineer, Pendragon Software <http://www.webfayre.com/>
  48.  
  49.     Pendragon Software Corporation
  50.     1580 South Milwaukee Avenue, Suite 515
  51.     Libertyville, IL 60048-3776
  52.     voice:    (847) 816-9660
  53.     fax:    (847) 816-9710
  54.  
  55.  
  56.